unit Principal1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, Menus, ActnList;

type
  TFprincipal = class(TForm)
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    Relatrios1: TMenuItem;
    Clientes1: TMenuItem;
    Contas1: TMenuItem;
    HistricosPadres1: TMenuItem;
    Lanamentos1: TMenuItem;
    Usurios1: TMenuItem;
    BalaneteMensal1: TMenuItem;
    Razao1: TMenuItem;
    MapadeRecebimentos1: TMenuItem;
    StatusBar1: TStatusBar;
    ActionList1: TActionList;
    Action1: TAction;
    StatusBar2: TStatusBar;
    Panel2: TPanel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fprincipal: TFprincipal;

implementation

uses Contas,hp,diario, Clientes;

{$R *.dfm}

procedure TFprincipal.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TFprincipal.BitBtn2Click(Sender: TObject);
begin
application.CreateForm(tfcontas,fcontas);
fcontas.showmodal;
fcontas.Free;
end;

procedure TFprincipal.BitBtn4Click(Sender: TObject);
begin
application.CreateForm(tfhp,fhp);
fhp.showmodal;
fhp.Free;
end;

procedure TFprincipal.BitBtn5Click(Sender: TObject);
begin
application.CreateForm(tfdiario,fdiario);
fdiario.showmodal;
fdiario.Free;
end;

procedure TFprincipal.BitBtn1Click(Sender: TObject);
begin
  application.CreateForm(tfclientes,fclientes);
  fclientes.showmodal;
  fclientes.Free;
end;

procedure TFprincipal.BitBtn7Click(Sender: TObject);
begin
application.CreateForm(tfcontas,fcontas);
fcontas.showmodal;
fcontas.Free;
end;

procedure TFprincipal.BitBtn8Click(Sender: TObject);
begin
application.CreateForm(tfhp,fhp);
fhp.showmodal;
fhp.Free;
end;

procedure TFprincipal.BitBtn9Click(Sender: TObject);
begin
application.CreateForm(tfdiario,fdiario);
fdiario.showmodal;
fdiario.Free;
end;

procedure TFprincipal.BitBtn12Click(Sender: TObject);
begin
  close;
end;

end.
